home *** CD-ROM | disk | FTP | other *** search
/ Ahoy: Best of 1985 / Ahoy_Best_of_1985_1986_Double_L.d64 / ahoy dock s'85 (.txt) next >
Commodore BASIC  |  2022-10-26  |  12KB  |  337 lines
  1. 0 print"[147]"
  2. 1 dimsu$(500),ta$(500),an$(500),mn$(500),id$(500),cm$(500):p$=",":open15,8,15
  3. 2 goto100
  4. 10 print"[147]":printtab(12);"one moment reading":print:printtab(20-len(z$)/2);z$
  5. 15 open5,8,5,"0:"+z$+",s,r":input#15,ax,bx$,cx,dx$:ifax<>0thengosub9000:return
  6. 18 fori=1to500:c=i
  7. 20 input#5,su$(i),ta$(i),an$(i),mn$(i),id$(i),cm$(i)
  8. 30 ifsu$(i)="eof"thenclose5:c=c-1:return
  9. 40 next
  10. 50 print:print"40 characters maximum":fori=1to4000:next:print"[147]":return
  11. 60 print:print"80 character maximum":fori=1to4000:next:print"[147]":return
  12. 80 open5,8,5,"@0:"+z$+",s,w":fori=1toc
  13. 82 print#5,su$(i):print#5,ta$(i):print#5,an$(i):print#5,mn$(i):print#5,id$(i)
  14. 83 print#5,cm$(i):next:i=c+1
  15. 84 su$(i)="eof":ta$(i)="title":an$(i)="author":mn$(i)="mag":id$(i)="issue"
  16. 86 cm$(i)="comment":print#5,su$(i):print#5,ta$(i):print#5,an$(i):print#5,mn$(i)
  17. 87 print#5,id$(i):print#5,cm$(i)
  18. 88 close5:return
  19. 100 print"[147]":poke53280,6:poke53281,0:fori=1to40:print"[211][211]";:next:print"[211][211]";
  20. 110 print" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146] ";
  21. 120 print "[211][211]";:print"[211][211] [194][146]================================[194][146] [211][211]";
  22. 130 print"[211][211] [194][146]===== ***ahoy dock file*** [146]=====[194][146] [211][211]";
  23. 140 print"[211][211] [194][146]=====                      [146]=====[194][146] [211][211]";
  24. 150 print"[211][211] [194][146]=====   add    -/- record  [146]=====[194][146] [211][211]";
  25. 160 print"[211][211] [194][146]=====   search -/- record  [146]=====[194][146] [211][211]";
  26. 170 print"[211][211] [194][146]=====   delete -/- record  [146]=====[194][146] [211][211]";
  27. 180 print"[211][211] [194][146]=====   modify -/- record  [146]=====[194][146] [211][211]";
  28. 190 print"[211][211] [194][146]=====   sort   -/- record  [146]=====[194][146] [211][211]";
  29. 200 print"[211][211] [194][146]=====   list   -/- record  [146]=====[194][146] [211][211]";
  30. 210 print"[211][211] [194][146]=====   print  -/- record  [146]=====[194][146] [211][211]";
  31. 215 print"[211][211] [194][146]=====                      [146]=====[194][146] [211][211]";
  32. 220 print"[211][211] [194][146]================================[194][146] [211][211]";
  33. 230 print"[211][211] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][146] [211][211]";
  34. 240 print"[211][211] [194][146]";:printchr$(159);:print" f1...add    ";:printchr$(5);
  35. 250 print"======";:printchr$(159);:print" f2...search ";:printchr$(31);:
  36. 260 print"[194][146] [211][211]";:print"[211][211] [194][146]";:printchr$(159);:print" f3...delete ";
  37. 270 printchr$(5);:print"======";:printchr$(159);:print" f4...modify ";
  38. 280 printchr$(31);:print"[194][146] [211][211]";:print"[211][211] [194][146]";:printchr$(159);
  39. 290 print" f5...sort   ";:printchr$(5);:print"======";:
  40. 300 printchr$(159);:print" f6...list   ";:printchr$(31);:print"[194][146] [211][211]";
  41. 310 print"[211][211] [194][146]";:printchr$(159);:print" f7...print  ";:printchr$(5);:
  42. 320 print"======";:printchr$(159);:print" f8...end    ";:printchr$(31);:
  43. 330 print"[194][146] [211][211]";:print"[211][211] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]";
  44. 340 print" [211][211]";:fori=1to40:print"[211]";:print"[211]";:next
  45. 350 getre$:ifre$=""then350
  46. 360 ifre$=chr$(140)then680
  47. 400 fori=133to140:ifre$=chr$(i)then520
  48. 410 next
  49. 420 print"[147]":poke53281,0:poke53280,0:print"":printtab(12);"invalid response"
  50. 430 print:printtab(7);"please press function key":re$="":fori=1to4000:next
  51. 440 goto100
  52. 450 data+++++++++++++++++++++++,+...selection menu....+,+                     +
  53. 460 data + 1--business         +,+ 2--disk operation   +,+ 3--educational      +
  54. 470 data + 4--fun and games    +,+ 5--graphics         +,+ 6--hardware         +
  55. 480 data + 7--home use         +,+ 8--languages-mlx    +,+ 9--miscellaneous    +
  56. 490 data + 10-musical          +,+ 11-simulations      +,+ 12-software         +
  57. 500 data + 13-tutorial         +,+ 14-utilities        +,+                     +
  58. 510 data+....please select....+,+++++++++++++++++++++++
  59. 520 print"[147]":print:poke53280,7:poke53281,1:print"[144]":fori=1to20:readm$
  60. 530 printtab(9);m$:next:restore:input"";se$:se=val(se$)
  61. 532 ifse$="/"then440
  62. 535 ifse<1orse>14then520
  63. 540 ifse$="1"thenz$="business"
  64. 550 ifse$="2"thenz$="disk operation"
  65. 560 ifse$="3"thenz$="educational"
  66. 570 ifse$="4"thenz$="fun & games"
  67. 580 ifse$="5"thenz$="graphics"
  68. 590 ifse$="6"thenz$="hardware"
  69. 600 ifse$="7"thenz$="home use"
  70. 610 ifse$="8"thenz$="languages-mlx"
  71. 620 ifse$="9"thenz$="miscellaneous"
  72. 630 ifse$="10"thenz$="musical"
  73. 640 ifse$="11"thenz$="simulations"
  74. 650 ifse$="12"thenz$="software"
  75. 660 ifse$="13"thenz$="tutorial"
  76. 670 ifse$="14"thenz$="utilities"
  77. 680 re=asc(re$):on(re-132)gosub1000,2000,3000,4000,5000,6000,7000,8000
  78. 690 z$="xx":de$="":de=.:k1=.:goto100
  79. 700 rem**********************************
  80. 710 rem* written by glenn lumpkins
  81. 720 rem* feb. 1985
  82. 730 rem**********************************
  83. 999 rem=====add routine=====
  84. 1000 print"[147]":gosub10:print"[147]":c=c+1
  85. 1010 ifk=1thenk=0:return
  86. 1020 printtab(8);": subject  of  article :[146]":print"";:inputsu$(c)
  87. 1025 ifsu$(c)="/"thenreturn
  88. 1030 iflen(su$(c))>79thengosub60:print: goto1020
  89. 1040 print"[144]":printtab(8);": title    of  article :[146]":print"";:inputta$(c)
  90. 1045 ifta$(c)="/"then1020
  91. 1050 iflen(ta$(c))>39thengosub50:print:goto1040
  92. 1060 print"[144]":printtab(8);": author's        name :[146]":print"";:inputan$(c)
  93. 1065 ifan$(c)="/"then1040
  94. 1070 iflen(an$(c))>39then(NULL)susb50:print:goto1060
  95. 1080 print"[144]":printtab(8);":[160]name     of magazine :[146]":print"";:inputmn$(c)
  96. 1085 ifmn$(c)="/"then1060
  97. 1090 iflen(mn$(c))>39thengosub50:print:goto1080
  98. 1100 print"[144]":printtab(8);":issue # / page / date :[146]":print"";:inputid$(c)
  99. 1105 ifid$(c)="/"then1080
  100. 1110 iflen(id$(c))>39then(NULL)susb50:print:goto1100
  101. 1120 print"[144]":printtab(8);": comments  or   notes :[146]":print"";:inputcm$(c)
  102. 1130 iflen(cm$(c))>79 thengosub60:print:goto1120
  103. 1135 ifcm$(c)="/"then1100
  104. 1140 print"[144]":printtab(5);"->press any key to continue<-"
  105. 1150 getde$:ifde$=""then1150
  106. 1160 print"[147]":printtab(20-len(z$)/2);z$:print
  107. 1170 printtab(5);"[c][146]ontinue or [w][146]rite to disk"
  108. 1180 getde$:ifde$=""then1180
  109. 1185 ifde$="/"thenreturn
  110. 1190 ifde$<>"c"andde$<>"w"then1180
  111. 1200 ifde$="c"thenprint"[147]":c=c+1:goto1020
  112. 1205 print:printtab(15);"writing to":print:printtab(20-len(z$)/2);z$
  113. 1210 gosub80:return
  114. 1999 rem====delete routine=======
  115. 2000 print"[147]":print:print:print
  116. 2005 print"  delete [e][146]ntire file or [o][146]ne record"
  117. 2010 getde$:ifde$=""then2010
  118. 2015 ifde$="/"thenreturn
  119. 2020 ifde$<>"e"andde$<>"o"then2000
  120. 2030 ifde$="e"thengosub9200:return
  121. 2040 fl=1:gosub7000:fl=.:return
  122. 2999 rem=====sort part1======
  123. 3000 gosub10:print"[147]":fori=1to5:print:next:printtab(15);"sort by":print
  124. 3010 f1=1:gosub5010:ifde$="/"thenreturn
  125. 3020 ifde$="s"thenk1=1:gosub9300:goto3070
  126. 3030 ifde$="t"thenk1=2:gosub9300:goto3070
  127. 3040 ifde$="a"thenk1=3:gosub9300:goto3070
  128. 3050 ifde$="m"thenk1=4:gosub9300:goto3070
  129. 3060 ifde$="i"thenk1=5:gosub9300:goto3070
  130. 3070 k1=.:print"[147]":printtab(8);"one moment writing sorted":print
  131. 3080 printtab(20-len(z$)/2);z$
  132. 3090 gosub80:return
  133. 3999 rem=====print record/file=====
  134. 4000 print"[147]":printtab(8);"[e][146]ntire or [o][146]ne record"
  135. 4010 getde$:ifde$=""then4010
  136. 4020 ifde$="/"thenreturn
  137. 4030 ifde$<>"e"andde$<>"o"then4010
  138. 4040 ifde$="o"thenk2=1:gosub7000:ifk2=.thenreturn
  139. 4050 ifde$="e"thengosub10:goto4200
  140. 4060 open3,4:xx$="[212]=================[217]":print#3,z$;" record number";i:print#3
  141. 4070 print#3:print#3,xx$:print#3,tab(3);"s u b j e c t":print#3
  142. 4080 print#3,su$(i):print#3:print#3,xx$:print#3,tab(5);"t i t l e":print#3
  143. 4090 print#3,ta$(i):print#3:print#3,xx$:print#3,tab(4);"a u t h o r":print#3
  144. 4100 print#3,an$(i):print#3:print#3,xx$:print#3,tab(2);"m a g a z i n e"
  145. 4110 print#3:print#3,mn$(i):print#3:print#3,xx$:print#3,tab(5);"i s s u e"
  146. 4120 print#3:print#3,id$(i):print#3:print#3,xx$:print#3,tab(3);"c o m m e n t"
  147. 4130 print#3:print#3,cm$(i):close3:return
  148. 4199 rem=====print entire record=====
  149. 4200 print"[147]":printtab(14);"now printing":print:printtab(20-len(z$)/2);z$
  150. 4210 xx$="[212]=================[217]":open3,4:print:print"record number"
  151. 4230 print#3,z$;" file":print#3
  152. 4240 fori=1toc:printi:print#3:print#3,"==>record number";i;" <==":print#3
  153. 4250 print#3,xx$:print#3,tab(3);"s u b j e c t":print#3:print#3,su$(i):print#3
  154. 4260 print#3,xx$:print#3,tab(5);"t i t l e":print#3:print#3,ta$(i):print#3
  155. 4270 print#3,xx$:print#3,tab(4);"a u t h o r":print#3:print#3,an$(i):print#3
  156. 4280 print#3,xx$:print#3,tab(2);"m a g a z i n e":print#3:print#3,mn$(i)
  157. 4290 print#3:print#3,xx$:print#3,tab(5);"i s s u e":print#3:print#3,id$(i)
  158. 4300 print#3:print#3,xx$:print#3,tab(3);"c o m m e n t":print#3:print#3,cm$(i)
  159. 4310 print#3:next:close3:return
  160. 4999 rem=====search routine=====
  161. 5000 print"[147]":fori=1to5:print:next:printtab(15);"search by":print
  162. 5010 print:printtab(15);"[s][146]ubject":print:printtab(15);"[t][146]itle":print
  163. 5020 printtab(15);"[a][146]uthor":print:printtab(15);"[m][146]agazine":print
  164. 5030 printtab(15);"[i][146]ssue
  165. 5040 [161]de$:[139]de$[178]""[167]5040
  166. 5045 [139]de$[178]"/"[167][142]
  167. 5050 [139]de$[179][177]"s"[175]de$[179][177]"t"[175]de$[179][177]"a"[175]de$[179][177]"m"[175]de$[179][177]"i"[167]5000
  168. 5055 [139]f1[178]1[167]f1[178].:[142]
  169. 5060 [139]de$[178]"s"[167][153]"load":[129]i[178]1[164]4:[153]:[130]:[137]5090
  170. 5070 [139]de$[178]"t"[167][153]"load":[129]i[178]1[164]4:[153]:[130]:[137]5110
  171. 5075 [139]de$[178]"a"[167][153]"load":[129]i[178]1[164]4:[153]:[130]:[137]5130
  172. 5080 [139]de$[178]"m"[167][153]"load":[129]i[178]1[164]4:[153]:[130]:[137]5150
  173. 5085 [139]de$[178]"i"[167][153]"load":[129]i[178]1[164]4:[153]:[130]:[137]5170
  174. 5090 [153]"load":[153][163]13);"enter ";:[153]"";:[153]"[subject]":[153]"stop"
  175. 5100 [133]s$:[141]10:[137]5300
  176. 5110 [153]"load":[153][163]13);"enter ";:[153]"";:[153]"[title]":[153]"stop"
  177. 5120 [133]t$:[141]10:[137]5300
  178. 5130 [153]"load":[153][163]13);"enter ";:[153]"";:[153]"[author]":[153]"stop"
  179. 5140 [133]a$:[141]10:[137]5300
  180. 5150 [153]"load":[153][163]12);"enter ";:[153]"";:[153]"[magazine]":[153]"stop"
  181. 5160 [133]m$:[141]10:[137]5300
  182. 5170 [153]"load":[153][163]13);"enter ";:[153]"";:[153]"[issue]":[153]"stop"
  183. 5180 [133]i$:[141]10:[137]5300
  184. 5300 [153]"load":[153]" #";[163]10);"one moment searching":[153][163]20[171][195](z$)[173]2);z$
  185. 5310 [129]i[178]1[164]c
  186. 5320 [139]de$[178]"s"[175][200](s$,[195](s$))[178][200](su$(i),[195](s$))[167][153]i;su$(i):k[178]k[170]1
  187. 5330 [139]de$[178]"t"[175][200](t$,[195](t$))[178][200](ta$(i),[195](t$))[167][153]i;ta$(i):k[178]k[170]1
  188. 5340 [139]de$[178]"i"[175][200](i$,[195](i$))[178][200](id$(i),[195](i$))[167][153]i;id$(i):k[178]k[170]1
  189. 5350 [139]de$[178]"m"[175][200](m$,[195](m$))[178][200](mn$(i),[195](m$))[167][153]i;mn$(i):k[178]k[170]1
  190. 5360 [139]de$[178]"a"[175][200](a$,[195](a$))[178][200](an$(i),[195](a$))[167][153]i;an$(i):k[178]k[170]1
  191. 5370 [139]k[178]15[167]k[178]0:[153]:[153][163]4);"correct record found [y]wait or [n]wait":y[178]1
  192. 5380 [139]y[178]1[167][161]re$:[139]re$[178]""[167]5380
  193. 5385 [139]re$[178]"/"[167][142]
  194. 5390 [139]y[178]1[175]re$[179][177]"n"[175]re$[179][177]"y"[167]5380
  195. 5400 [139]re$[178]"n"[167][153]"load":y[178].:re$[178]"":[130]:[137]5440
  196. 5410 [139]re$[178]"y"[167]y[178].:[137]5500
  197. 5415 [139]c[178]i[175]k[178][177]1[167]k[178]15:[137]5370
  198. 5420 [130]:[153]
  199. 5430 [153][163]11);"record not found":[153]
  200. 5440 [153][163]10)"[a]waitbort or [r]waitetry
  201. 5450 getde$:ifde$=""then5450
  202. 5460 ifde$="/"orde$="a"thenreturn
  203. 5470 ifde$="r"thende$="":goto5000
  204. 5480 ifde$<>"a"andde$<>"r"then5450
  205. 5500 print:printtab(13);"select record":print"";:inputrn:ifrn>cthen5500
  206. 5510 print"[144]":print"[147]":i=rn:fa=1:goto7010
  207. 5999 rem====modify record======
  208. 6000 f4=1:gosub7000
  209. 6010 printtab(7);"[144]";"[1. subject of article ][146]":print"";su$(i):print
  210. 6020 printtab(7);"[144]";"[2. title of article   ][146]":print"";ta$(i):print
  211. 6030 printtab(7);"[144]";"[3. author's name      ][146]":print"";an$(i):print
  212. 6040 printtab(7);"[144]";"[4. name of magazine   ][146]":print"";mn$(i):print
  213. 6050 printtab(7);"[144]";"[5. issue #/page/date  ][146]":print"";id$(i):print
  214. 6060 printtab(7);"[144]";"[6. comment or note    ][146]":print"";cm$(i):print
  215. 6070 printtab(7);"[144]";"[7. write to disk      ][146]":print
  216. 6080 printtab(7);"===>change which line<=="
  217. 6090 getde$:ifde$=""then6090
  218. 6100 de=val(de$):ifde$="/"thenreturn
  219. 6110 ifde<1orde>7then6090
  220. 6120 ifde=7thengosub80:return
  221. 6130 ifde=1thenprint"[147]":printtab(5);": subject of article :[146]":print:print"";
  222. 6140 ifde=1thenprintsu$(i):print:print"enter new value":print:inputsu$(i)
  223. 6150 iflen(su$(i))>79thengosub60:print:goto6130
  224. 6155 ifsu$(i)="/"thenreturn
  225. 6160 ifde=2thenprint"[147]":printtab(5);": title of article :[146]":print:print"";
  226. 6170 ifde=2thenprintta$(i):print:print"enter new value":print:inputta$(i)
  227. 6180 iflen(ta$(i))>39thengosub50:print:goto6160
  228. 6185 ifta$(i)="/"thenreturn
  229. 6190 ifde=3thenprint"[147]":printtab(5);": author's name :[146]":print:print"";
  230. 6200 ifde=3thenprintan$(i):print:print"enter new value":print:inputan$(i)
  231. 6210 iflen(an$(i))>39thengosub50:print:goto6190
  232. 6215 ifan$(i)="/"thenreturn
  233. 6220 ifde=4thenprint"[147]":printtab(5);": name of magazizne :[146]":print:print"";
  234. 6230 ifde=4thenprintmn$(i):print:print"enter new value":print:inputmn$(i)
  235. 6240 iflen(mn$(i))>39thengosub50:print:goto6220
  236. 6245 ifmn$(i)="/"thenreturn
  237. 6250 ifde=5thenprint"[147]":printtab(5);": issue / page / date :[146]":print:print"";
  238. 6260 ifde=5thenprintid$(i):print:print"enter new value":print:inputid$(i)
  239. 6270 iflen(id$(i))>39thengosub50:print:goto6250
  240. 6275 ifid$(i)="/"thenreturn
  241. 6280 ifde=6thenprint"[147]":printtab(5);": comments or notes :":print:print"";
  242. 6290 ifde=6thenprintcm$(i):print:print"enter new value":print:inputcm$(i)
  243. 6300 iflen(cm$(i))>70thengosub60:print,goto6280
  244. 6305 ifcm$(i)="/"thenreturn
  245. 6310 print"[147]":goto6010
  246. 6999 rem====list + delete routine =======
  247. 7000 print"[147]":gosub10:print"[147]":fori=1toc:print:print
  248. 7010 printtab(9);"[:subject of article:][146]":print"";su$(i):print
  249. 7020 printtab(9);"[144][:title of article  :][146]":print"";ta$(i):print
  250. 7030 printtab(9);"[144][:author's name     :][146]":print"";an$(i):print
  251. 7040 printtab(9);"[144][:name of magazine  :][146]":print"";mn$(i):print
  252. 7050 printtab(9);"[144][:issue #/page/date :][146]":print"";id$(i):print
  253. 7060 printtab(9);"[144][:comment or notes  :][146]":print"";cm$(i):print
  254. 7065 iffa=1thenprint:print"[144]";tab(8);"press any key to continue"
  255. 7070 iffa=1thengetde$:ifde$=""then7070
  256. 7075 ifde$="/"thenreturn
  257. 7080 iffa=1thenfa=.:return
  258. 7090 iffl=1thenprint"[144]";tab(5);"delete this record [y][146] or [n][146]"
  259. 7100 iffl=1thengetde$:ifde$=""then7100
  260. 7110 iffl=1andde$="y"then7180
  261. 7120 iffl=1thenprint"[147]":nexti:return
  262. 7125 iff4=1thenprint"[144]";tab(5);"modify this record [y][146] or [n][146]":goto7140
  263. 7130 print"[144]";tab(7);"continue paging [y][146] or [n][146]"
  264. 7140 getde$:ifde$=""then7140
  265. 7145 ifde$="/"thenreturn
  266. 7150 ifde$<>"y"andde$<>"n"then7140
  267. 7155 iff4=1andde$="n"thenprint"[147]":next:return
  268. 7160 ifde$="n"thenreturn
  269. 7165 iff4=1andde$="y"thenf4=.:print"[147]":return
  270. 7170 print"[147]":next:k2=.:return
  271. 7180 su$(i)="delete":open5,8,5,"@0:"+z$+",s,w":print"[147]"
  272. 7190 printtab(4);"one moment deleting record #";i:fori=1toc
  273. 7200 ifsu$(i)="delete"thenc=c-1:next
  274. 7210 print#5,su$(i)p$ta$(i)p$an$(i)p$mn$(i)p$id$(i)p$cm$(i)
  275. 7220 next:i=c+1:su$(i)="eof":ta$(i)="title":an$(i)="author":mn$(i)="mag"
  276. 7230 id$(i)="issue":cm$(i)="comment"
  277. 7240 print#5,su$(i)p$ta$(i)p$an$(i)p$mn$(i)p$id$(i)p$cm$(i):close5:fl=.:return
  278. 7999 rem====end===
  279. 8000 print"[147]":forx=1to12:print:next:printtab(9);"it's been a pleasure"
  280. 8010 fori=1to15:poke53281,i+1:for x=1to200:nextx:nexti:poke53281,6
  281. 8020 print"[147]":print"":end
  282. 8999 rem====== initialize file======
  283. 9000 print"[147]":printtab(5);"this file '";z$;"' has not been initialized ":close5
  284. 9010 print"or you do not have the correct disk in  the drive !"
  285. 9020 print:printtab(8);"[c][146]ontinue -/- [r][146]eturn"
  286. 9030 getde$:ifde$=""then9030
  287. 9035 ifde$="/"thenk=1:return
  288. 9040 ifde$="r"thenk=1:return
  289. 9050 ifde$<>"r"andde$<>"c"then9030
  290. 9060 open5,8,5,"0:"+z$+",s,w":print"[147]":printtab(14);"initializing"
  291. 9070 print:printtab(20-len(z$)/2);z$
  292. 9080 su$(1)="eof":ta$(1)="title":an$(1)="author":mn$(1)="mag":id$(1)="issue"
  293. 9090 cm$(1)="comment"
  294. 9100 print#5,su$(1)p$ta$(1)p$an$(1)p$mn$(1)p$id$(1)p$cm$(1):close5:return
  295. 9199 rem=====delete the entire file =====
  296. 9200 print"[147]":fori=1to10:print:next:printtab(11);"!! are you sure !!"
  297. 9210 print:printtab(15);"[y][146] or [n][146]"
  298. 9220 getde$:ifde$=""then9220
  299. 9225 ifde$="/"thenreturn
  300. 9230 ifde$<>"y"andde$<>"n"then9220
  301. 9240 ifde$="n"thenreturn
  302. 9250 print:printtab(10);"one moment deleting":print:printtab(20-len(z$)/2);z$
  303. 9260 open5,8,5,"@0:"+z$+",s,w":gosub9080:return
  304. 9299 rem=====sort part2=====
  305. 9300 print"[147]":printtab(9);"one moment now sorting":print
  306. 9310 printtab(20-len(z$)/2);z$
  307. 9320 onk1goto9350,9400,9450,9500,9550
  308. 9350 f=.:forj=1toc-1
  309. 9360 ifsu$(j)<=su$(j+1)then9380
  310. 9370 gosub10000
  311. 9380 next:iff=1then9350
  312. 9390 return
  313. 9400 f=.:forj=1toc-1
  314. 9410 ifta$(j)<=ta$(j+1)then9430
  315. 9420 gosub10000
  316. 9430 next:iff=1then9400
  317. 9440 return
  318. 9450 f=.:forj=1toc-1
  319. 9460 ifan$(j)<=an$(j+1)then9480
  320. 9470 gosub10000
  321. 9480 next:iff=1then9450
  322. 9490 return
  323. 9500 f=.:forj=1toc-1
  324. 9510 ifmn$(j)<=mn$(j+1)then9540
  325. 9520 (NULL)susb10000
  326. 9530 next:iff=1then9500
  327. 9540 return
  328. 9550 f=.:fori=1toc-1
  329. 9560 ifid$(j)<=id$(j+1)then9580
  330. 9570 gosub10000
  331. 9580 next:iff=1then9550
  332. 9590 return
  333. 10000 s1$=su$(j):t1$=ta$(j):a1$=an$(j):m1$=mn$(j):i1$=id$(j):c1$=cm$(j)
  334. 10010 su$(j)=su$(j+1):su$(j+1)=s1$:ta$(j)=ta$(j+1):ta$(j+1)=t1$:f=1
  335. 10020 an$(j)=an$(j+1):an$(j+1)=a1$:mn$(j)=mn$(j+1):mn$(j+1)=m1$
  336. 10030 id$(j)=id$(j+1):id$(j+1)=i1$:cm$(j)=cm$(j+1):cm$(j+1)=c1$:return
  337.